VERSION 4.00
Begin VB.Form frmBrowse 
   Caption         =   "Web Browser"
   ClientHeight    =   3420
   ClientLeft      =   1860
   ClientTop       =   2955
   ClientWidth     =   6480
   Height          =   3825
   Left            =   1800
   LinkTopic       =   "Form2"
   ScaleHeight     =   3420
   ScaleWidth      =   6480
   Top             =   2610
   Width           =   6600
   Begin VB.CommandButton cmdRefresh 
      Caption         =   "&Refresh"
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   480
      Width           =   1095
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "&Close"
      Height          =   375
      Left            =   4080
      TabIndex        =   5
      Top             =   480
      Width           =   1095
   End
   Begin VB.CommandButton cmdForward 
      Caption         =   "&Forward >>"
      Height          =   375
      Left            =   2760
      TabIndex        =   4
      Top             =   480
      Width           =   1095
   End
   Begin VB.CommandButton cmdBack 
      Caption         =   "<< &Back"
      Height          =   375
      Left            =   1440
      TabIndex        =   3
      Top             =   480
      Width           =   1095
   End
   Begin VB.CommandButton cmdGo 
      Caption         =   "&GO!"
      Height          =   375
      Left            =   5280
      TabIndex        =   2
      Top             =   120
      Width           =   1095
   End
   Begin VB.TextBox txtAddress 
      Height          =   285
      Left            =   840
      TabIndex        =   1
      Top             =   120
      Width           =   4335
   End
   Begin ComctlLib.StatusBar StatusBar 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   7
      Top             =   3120
      Width           =   6480
      _Version        =   65536
      _ExtentX        =   11430
      _ExtentY        =   529
      _StockProps     =   68
      AlignSet        =   -1  'True
      Style           =   1
      SimpleText      =   ""
      i1              =   "frmBrows.frx":0000
   End
   Begin SHDocVwCtl.WebBrowser Browser 
      Height          =   2055
      Left            =   0
      TabIndex        =   6
      Top             =   960
      Width           =   6375
      Object.Height          =   137
      Object.Width           =   425
      AutoSize        =   0
      ViewMode        =   1
      AutoSizePercentage=   0
      AutoArrange     =   -1  'True
      NoClientEdge    =   -1  'True
      AlignLeft       =   0   'False
   End
   Begin VB.Label Label1 
      Caption         =   "&Address:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
Attribute VB_Name = "frmBrowse"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub browser_OnNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, ByVal Referrer As String)
    txtAddress.Text = URL
End Sub
Private Sub browser_OnStatusTextChange(ByVal bstrText As String)
    StatusBar.SimpleText = bstrText
End Sub
Private Sub cmdBack_Click()
    browser.GoBack
End Sub
Private Sub cmdClose_Click()
    Unload frmBrowse
End Sub
Private Sub cmdForward_Click()
    browser.GoForward
End Sub
Sub cmdGo_Click()
    browser.Navigate txtAddress.Text
End Sub
Private Sub cmdRefresh_Click()
    browser.Refresh
End Sub
Private Sub Form_Resize()
    If frmBrowse.WindowState <> 1 Then
        browser.Move 0, 960, frmBrowse.ScaleWidth, frmBrowse.ScaleHeight - 1260
    End If
End Sub